# MASON COMPILER ID: 2097!27276
package HTML::Mason::Commands;
use strict;
use vars qw($m $r);
HTML::Mason::Component::FileBased->new(
'code' => sub {
$m->debug_hook( $m->current_comp->path ) if ( %DB:: );

#line 1 D:\Apache2\mason\printenv.html
$m->print( '<body>
<h3>Environment</h3>
<ul>

' );
#line 5 D:\Apache2\mason\printenv.html
 foreach my $var (sort keys %ENV) { 
$m->print( '
<LI>' );
#line 7 D:\Apache2\mason\printenv.html
$m->print(  $var  );
#line 7 D:\Apache2\mason\printenv.html
$m->print( ' = ' );
#line 7 D:\Apache2\mason\printenv.html
$m->print(  $ENV{$var}  );
#line 7 D:\Apache2\mason\printenv.html
$m->print( ' </LI>
' );
#line 8 D:\Apache2\mason\printenv.html
 } 
$m->print( '
</ul>
' );
return undef;
},
'compiler_id' => '2097!27276',
'load_time' => 1104184939,
'object_size' => 702,

)
;